object Form1: TForm1
  Left = 192
  Top = 130
  Width = 979
  Height = 563
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lblSex: TLabel
    Left = 38
    Top = 40
    Width = 26
    Height = 12
    Alignment = taRightJustify
    Caption = #24615#21035
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object tsedtSex: TListDbEdit
    Left = 69
    Top = 35
    Width = 66
    Height = 20
    Hint = 'sqllist ID 103'
    DataField = 'sex'
    DataSource = dtsMzPatient
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnKeyDown = tsedtSexKeyDown
    ListKey = 32
    ListShift = []
    IsFouceShowID = True
    IsEsc = True
  end
  object adqMzPatient: TADOQuery
    Connection = adcMain
    Parameters = <>
    SQL.Strings = (
      'select * from mz_patient(nolock)'
      'where 1 = 2')
    Left = 68
    Top = 142
  end
  object dspMzPatient: TDataSetProvider
    DataSet = adqMzPatient
    Left = 100
    Top = 142
  end
  object cdsMzPatient: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'birthday'
    Params = <>
    ProviderName = 'dspMzPatient'
    Left = 132
    Top = 142
    object cdsMzPatientp_id: TStringField
      FieldName = 'p_id'
      Size = 12
    end
    object cdsMzPatientname: TStringField
      FieldName = 'name'
      Size = 32
    end
    object cdsMzPatientsex: TStringField
      FieldName = 'sex'
      FixedChar = True
      Size = 1
    end
    object cdsMzPatientbirthday: TDateTimeField
      FieldName = 'birthday'
    end
    object cdsMzPatientbirth_place: TStringField
      FieldName = 'birth_place'
      Size = 50
    end
    object cdsMzPatienthome_district: TStringField
      FieldName = 'home_district'
      Size = 50
    end
    object cdsMzPatienthome_street: TStringField
      FieldName = 'home_street'
      Size = 100
    end
    object cdsMzPatienthome_tel: TStringField
      FieldName = 'home_tel'
      Size = 32
    end
    object cdsMzPatienthome_zipcode: TStringField
      FieldName = 'home_zipcode'
      FixedChar = True
      Size = 6
    end
    object cdsMzPatientrelation_name: TStringField
      FieldName = 'relation_name'
      Size = 32
    end
    object cdsMzPatientrelation_code: TStringField
      FieldName = 'relation_code'
      Size = 2
    end
    object cdsMzPatientrelation_tel: TStringField
      FieldName = 'relation_tel'
      Size = 16
    end
    object cdsMzPatientresponse_type: TStringField
      FieldName = 'response_type'
      Size = 2
    end
    object cdsMzPatientcontract_code: TStringField
      FieldName = 'contract_code'
      Size = 6
    end
    object cdsMzPatientinsurl_code: TStringField
      FieldName = 'insurl_code'
      Size = 6
    end
    object cdsMzPatientoccupation_type: TStringField
      FieldName = 'occupation_type'
      Size = 4
    end
    object cdsMzPatientmax_times: TIntegerField
      FieldName = 'max_times'
    end
    object cdsMzPatientmax_ledger_sn: TIntegerField
      FieldName = 'max_ledger_sn'
    end
    object cdsMzPatientsetup_date: TDateTimeField
      FieldName = 'setup_date'
    end
    object cdsMzPatientblack_flag: TStringField
      FieldName = 'black_flag'
      FixedChar = True
      Size = 1
    end
    object cdsMzPatientpy_code: TStringField
      FieldName = 'py_code'
      Size = 8
    end
    object cdsMzPatientmarry_code: TStringField
      FieldName = 'marry_code'
      FixedChar = True
      Size = 1
    end
    object cdsMzPatientcountry_code: TStringField
      FieldName = 'country_code'
      Size = 2
    end
    object cdsMzPatientnation_code: TStringField
      FieldName = 'nation_code'
      Size = 2
    end
    object cdsMzPatientbalance: TBCDField
      FieldName = 'balance'
      Precision = 12
      Size = 2
    end
    object cdsMzPatientexternal_code: TStringField
      FieldName = 'external_code'
      Size = 8
    end
    object cdsMzPatientwork_place: TStringField
      FieldName = 'work_place'
      Size = 64
    end
    object cdsMzPatientmobile_tel: TStringField
      FieldName = 'mobile_tel'
    end
    object cdsMzPatiente_mail_address: TStringField
      FieldName = 'e_mail_address'
      Size = 32
    end
    object cdsMzPatientsocial_code: TStringField
      FieldName = 'social_code'
    end
    object cdsMzPatientsex_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'sex_lookup'
      Size = 8
    end
    object cdsMzPatientresponse_type_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'response_type_lookup'
      Size = 32
    end
    object cdsMzPatientmarry_code_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'marry_code_lookup'
      Size = 32
    end
    object cdsMzPatientnation_code_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'nation_code_lookup'
      Size = 32
    end
    object cdsMzPatientrelation_code_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'relation_code_lookup'
      Size = 32
    end
    object cdsMzPatientinsurl_code_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'insurl_code_lookup'
      Size = 32
    end
    object cdsMzPatientcontract_code_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'contract_code_lookup'
      Size = 32
    end
    object cdsMzPatientoccupation_type_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'occupation_type_lookup'
      Size = 32
    end
    object cdsMzPatientcountry_code_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'country_code_lookup'
      Size = 32
    end
    object cdsMzPatientp_id_abb: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'p_id_abb'
      Size = 10
    end
    object cdsMzPatientgh_responce: TStringField
      FieldName = 'gh_responce'
      Size = 2
    end
    object cdsMzPatientgh_responce_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'gh_responce_lookup'
      Size = 32
    end
    object cdsMzPatienthic_no: TStringField
      FieldName = 'hic_no'
    end
    object cdsMzPatientaddition_flag: TStringField
      FieldName = 'addition_flag'
      FixedChar = True
      Size = 1
    end
    object cdsMzPatientbz: TStringField
      FieldName = 'bz'
      Size = 400
    end
    object cdsMzPatientmpr_id: TStringField
      FieldName = 'mpr_id'
    end
    object cdsMzPatientbuild_opera: TStringField
      FieldName = 'build_opera'
      Size = 10
    end
    object cdsMzPatienthome_district_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'home_district_lookup'
      Size = 70
    end
    object cdsMzPatientvip_level: TIntegerField
      FieldName = 'vip_level'
    end
    object cdsMzPatientvip_package: TIntegerField
      FieldName = 'vip_package'
    end
    object cdsMzPatientpackage_times: TIntegerField
      FieldName = 'package_times'
    end
    object strngfldMzPatienteducational_level: TStringField
      FieldName = 'educational_level'
      Size = 50
    end
  end
  object dtsMzPatient: TDataSource
    DataSet = cdsMzPatient
    Left = 164
    Top = 142
  end
  object adcMain: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=sql;Persist Security Info=True;User' +
      ' ID=sa;Initial Catalog=kmetyy_his_mz;Data Source=192.168.1.216\s' +
      'ql2008r2'
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 144
  end
  object adoSex: TADOQuery
    Connection = adcMain
    Parameters = <>
    SQL.Strings = (
      
        'SELECT code '#32534#30721',name '#21517#31216',py_code '#25340#38899#30721' , wb_code '#20116#31508#30721' FROM dic_sex_co' +
        'de(NOLOCK)')
    Left = 292
    Top = 129
  end
  object dspSex: TDataSetProvider
    DataSet = adoSex
    Left = 338
    Top = 133
  end
  object cdsSex: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'dept_no'
        ParamType = ptInput
        Value = '12'
      end>
    ProviderName = 'dspSex'
    Left = 382
    Top = 133
  end
end
